(FILECREATED " 1-SEP-74 23:00:37" P6.;9 5060   )


  (LISPXPRINT (QUOTE P6COMS)
	      T)
  (RPAQQ P6COMS (PUP6FNS PUP6COMS))
  (RPAQQ PUP6FNS
	 (@ A:BEING:ORDER A:BEING:WHEN AD AD1 ADD:BEING ADD:EFFECTS ADD:IDEN ALLSUBSTS ANTI:RULE ANTIRULE ASSERTIONS 
	    ATOMP ATTENTION:DEMONS BREAK:PREADLIST CAAR:ORDER CAR:ORDER CHANGEB CHANGEP CHECK:COMMENTS CLASS COLON:BACK 
	    COLON:BREAK COMMENT COMPATIBLE CSORT DEFERRAL:DEMON DETERMINE:ALL:ARG2:VALUES DETERMINE:ALL:ARG3:VALUES 
	    DETERMINE:ALL:ARG:VALUES DETERMINE:ARG2:VALUE DETERMINE:ARG3:VALUE DETERMINE:ARG:VALUE DIMENSION1 
	    DIMENSION2 DIMENSION3 DISK:DUMP DOT:PROD DUMMIES DUMP:BEING ECONOMY:DEMON ELIM:COMMON:HEAD ELIM:COMMON:TAIL 
	    ENTER EVALUATE:AFFECT EVEN:ALT FAD FAST FAST:A:BEING:ORDER FAST:BEING:COMPLEX FAST:COMPILE FIND:AND:TAG 
	    FIRST:FEW FIRSTN FLATTEN FLOW:PRECEDED FOREVER FORGETFUL:USER:DEMON FORGOT:ANY FORSOME 
	    FRINGE:OF:CONCIOUSNESS:DEMON GET:USAGE GETCODE HEAD HIGHLY:STRUCTURED IDIOM:DEMON IMPROBABILITY:COMPLEX 
	    INCOMMENT INFER:INSIDE INFERENCE:DEMONS INITIALS INSERT:PRINT:STATEMENTS INSIDE INSTANTIATE INTUPLE 
	    INVECTOR IRRELEVANT JPL LEARN:BY:EXAMPLE LIST:JOIN LIST:TRANSLATE LISTFILES LOCATE:AFFECTED:AREA 
	    LOCATION:TRANSLATE LONG:NAME:DEMON LUMP:ASSERTIONS MAD MAIN:WORDS MAKE:SPECIFIC MATCH MERGE:IN MERGE:IN2 
	    MINIMUM MINTERSECTION MOST:GENERAL MOVE:BEING MULT:INTERSECTION NEW:IDEN NEW:LEVEL NOT:YET:INITIALIZED 
	    NULLIFY NUMBER:SUBST ODD:ALT OPPOSITE OUTFORM OUTNIL OUTQUOTE OUTTUPLE OUTVECTOR PBT PBTV 
	    PERMIT:DETAILED:DECISION PERMIT:USER:INTERRUPT PLISTMATCH PLURAL POP:DEMONS PREAD PREDICT:AFFECT PREPL PRET 
	    PROCEDURE:INTERSECTION PROCEDURE:PULLOUT PROCEDURE:SUBSET PROCESS:USER:INTERRUPT PROGRAM:WRITING:DEMONS 
	    PSYCHOLOGY:DEMON PULLOUT PULLOUT1 PUPP PUPRETTYPRINT PUPRIN1 PUPRINT PUSH:DEMONS RANDOMSELECT 
	    REINVESTIGATION:DEMON RELEVANT REMOVE:EFFECTS REMOVE:IDEN RFAST SELECT:STRUCTURE:TYPE SEMI:COMPILE 
	    SET:UP:EFFECTS:TABLE SET:UP:IDEN:TABLE SETDIFFERENCE SETINTERSECTION SETUNION SINGLETON SINGULAR SIZE 
	    SNAPSHOT SPECIFICITY:CHECK:DEMON START STRUCTURE STRUCTURE:COMPATIBLE STRUCTURE:INDUCING:DEMON SUBALLEVELS 
	    SUBSTITUTE SWITCHFAST SWITCHFN TEMPORARILY TRACE:COMPILE TRUE:MINIMUM TRY:TO:SATISFY TUPLE UNGERUNDIFY 
	    USER:INTERRUPT:AT:ADAPTING USER:INTERRUPT:AT:CODING USER:INTERRUPT:AT:DEBUG USER:INTERRUPT:AT:END 
	    USER:INTERRUPT:AT:PHASES VECTOR VECTOR:AVERAGE VECTOR:SUM WHEN:VALUE Z@))
  (RPAQQ PUP6COMS
	 ((FNS * PUP6FNS)
	  $ ADAPTATION:DEFER:DECISION:KNOWLEDGE ADAPTATION:RESOLVE:DECISION:KNOWLEDGE ADJECTIVES AFFECTS:ALL 
	  AFFECTS:ALL:DEFER:DECISION:KNOWLEDGE ALPHORDER ALTERNATIVES:DEFER:DECISION:KNOWLEDGE 
	  ALTERNATIVES:RESOLVE:DECISION:KNOWLEDGE AND:LOOP:TERMINATION:KNOWLEDGE APPLIED:SO:AS:TO:KEEP ARG1 ARG1 ARG1 
	  ASSERT:LISTS BEING BOOLEAN:DEFER:DECISION:KNOWLEDGE BOOLEAN:RESOLVE:DECISION:KNOWLEDGE BOTH:RESULTS 
	  BREAKUP:LIST CALL COMEVAL COMMENT COMPILABLE:BEING:PARTS DEFINITION:DEFER:DECISION:KNOWLEDGE 
	  DEFINITION:RESOLVE:DECISION:KNOWLEDGE DICHOTOMY:DEFER:DECISION:KNOWLEDGE DICHOTOMY:RESOLVE:DECISION:KNOWLEDGE 
	  DOES DOESNT DUMMY:ARGUMENT EQUAL EQUALS EVAL EVAL:BEING:PARTS EXPERTAG EXPERTISE FALSE FAST:BEING:LIST 
	  FAST:COMPLEX FAST:FUNCTION:LIST FINAL:PREADLIST FLOW:ASSIGNMENT FOREVER FUNDAMENTAL:IDEN:TABLE GI:DIALOG 
	  GLOBAL:CONTEXT:0 GO HOLDX INFERIOR ING IS IS:BEING:LIST ISNT KNOWLEDGE LABEL:COUNTER LEFT:SIDE 
	  LIST:VALUE:SETUP LONG:TAG MINOR:WORDS NAME NEW:P:NUMBER NO:RESULTS NON:EVAL:BEING:PARTS NON:EXECUTABLE 
	  NOT:TIME:YET ONETYPE ONETYPE:DEFER:DECISION:KNOWLEDGE ONETYPE:RESOLVE:DECISION:KNOWLEDGE PARTS 
	  PERMANENT:KNOWN:NAMES POSSIBLE PREADLIST PREDICATE:DEFER:DECISION:KNOWLEDGE 
	  PREDICATE:RESOLVE:DECISION:KNOWLEDGE PRIMITIVE:PROGRAMS:LIST PRIMITIVE:VARS:LIST PROGRAM:WRITING:PHASES 
	  PROPERTY:LIST:SETUP RESULT:COUNTER RESULTS RIGHT:SIDE SET:OF SET:OF:BEING:PARTS SET:OF:BEINGS SINCE SNAP 
	  SNAPFNS SNAPVARS SOMEOF:DEFER:DECISION:KNOWLEDGE SOMEOF:RESOLVE:DECISION:KNOWLEDGE STICKY:BNAME STICKY:BPART 
	  SUBSETOF:DEFER:DECISION:KNOWLEDGE SUBSETOF:RESOLVE:DECISION:KNOWLEDGE SUPERIOR TASK:TYPE TRIVIAL:BEING:LIST 
	  UNKNOWN UNTIL WHEN:ALL WHEN:ALL:DEFER:DECISION:KNOWLEDGE YES YES:RESULTS YESNO YESNO:TAG
	  (COMS * (LIST (APPEND (QUOTE (PROP ALL))
				SET:OF:BEINGS)))
	  (P (MAPC (APPEND PUP6FNS SET:OF:BEINGS SET:OF:BEING:PARTS ADJECTIVES)
		   (FUNCTION (LAMBDA (V)
				     (SET V V))))
	     (SETQ NOLINKFNS T)
	     (SETQ #RPARS NIL)
	     (DWIM)
	     (PRIN1 "
DWIM DISABLED. TO GET AUTOMATIC EDITF FROM SOURCE, TYPE DWIM(T)
")
	     (CHANGESLICE 6)
	     (SET:UP:IDEN:TABLE)
	     (SET:UP:EFFECTS:TABLE)
	     (WIDEPAPER T))
	  (P (MAPC SET:OF:BEINGS SEMI:COMPILE)
	     (PUPRIN1 " MINI PUP FILE; USE FAD OR AD OR MAKEFILE "))
	  (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA VECTOR TUPLE STRUCTURE CSORT 
										       COMMENT CLASS)
										(NLAML FORSOME)))))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP